#!/usr/bin/perl
# ourmodule1.pm
package B::Tree;
use strict;

use B qw(main_root walkoptree_slow);

sub compile {
   return sub {walkoptree_slow(main_root, "visit")};
}
sub B::OP::visit {
   print "Hello from this node. \n";
}
1;
